home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Frontier 4.0.1 / Frontier user guide (html) / suitepix / eight814.gif < prev    next >
Graphics Interchange Format  |  1996-01-25  |  3.0 KB  |  402x180  |  1-bit (2 colors)  |  [GIFf/BABL]
   ocr: on addAccomplishment 0 local (temp = "") target.set (@Activtew.Acomplhahnenty <No need to open the list. if not dialog.ask ("What did you accomplish? @temp) return (false) <User cancelled the dialog pp.firstSummit 0 <Move outline cursor to first summit in list. op.go (down, infinity) <Move to last summit in list if op.getLineText 0 notequals string.datestring 0 op.insert (string.dateString 0, down) <Create new summit with today 's date. pp.insert temp,right) <Put accomplishment in place. Activities.howMlany** < Increment number of activities stored return (true)